-- card: 2958 from stack: in -- bmap block id: 4187 -- flags: 0000 -- background id: 2560 -- name: ----- HyperTalk script ----- on openCard wait 2 seconds lock screen end openCard -- part 1 (button) -- low flags: 00 -- high flags: 2002 -- rect: left=452 top=138 right=188 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 17885 / 17885 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseUp visual effect dissolve go home end mouseUp -- part 2 (button) -- low flags: 00 -- high flags: A002 -- rect: left=452 top=192 right=239 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 14767 / 14767 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: About... ----- HyperTalk script ----- on mouseUp visual effect iris open go to card "about" end mouseUp -- part 3 (button) -- low flags: 00 -- high flags: A002 -- rect: left=452 top=243 right=292 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 26411 / 26411 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Try Me! ----- HyperTalk script ----- on mouseUp screensave end mouseUp -- part 5 (button) -- low flags: 00 -- high flags: A003 -- rect: left=170 top=320 right=342 bottom=315 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Install into Stack ----- HyperTalk script ----- on mouseUp global fname,theScript,tempHolder put "Select a stack to copy HyperScreenSaver into." put filename("STAK") into fname if fname is empty then exit mouseUp put "Adding HyperScreenSaver to " & fname & "..." into msg put installres(XFCN,InKey) into it set lockscreen to true set cursor to ball go to second card of stack "HyperScreenSaver" doMenu "copy card" go to last card of stack fname doMenu "paste card" go to stack "HyperScreenSaver" choose browse tool go to card "about" put card field "script" into tempHolder go to fname get script of stack put it into stackScript put stackScript & return & return & return & tempHolder into theScript set script of stack fname to theScript put "" into msg hide msg set cursor to hand end mouseUp